home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / cybergfx / cyberupdate2.18 / cybergraphx_update next >
Text File  |  1996-06-02  |  45KB  |  1,158 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; Domino PicassoII Spectrum Piccolo Z2/3 RetinaZ3 Cybervision PiccoloSD64 A2410
  11. ; DraCoAltais
  12. ;
  13. ; CyberGraphX Update Installer ©1994,1995,1996 by Robert C. Reiswig 
  14. ; $VER: Version_2.16 (Feb-26-95)
  15. ; For use with PD and Registered CyberGraphX Only. For Frank Mariak!
  16. ;--------------------------------------------------------------------------------
  17. ; Installer suggestions, problems or changes: rcr@netcom.com
  18. ;********************************************************************************
  19.  
  20. ;********************************************************************************
  21. ; Cyber Release & Boards
  22. ;********************************************************************************
  23. (set #cyberver "2.18")
  24.  
  25. (message (cat "\nCyberGraphX V" #cyberver "\n~~~~~~~~~~~~~~~~~~\n"
  26.               "CyberVision64\n\nPicasso II & Spectrum\n\nDomino\n\n"
  27.               "DraCoAltais & Retina Z3 BLT\n\nPiccolo & Piccolo SD64\n\nA2410"
  28.          )
  29. )
  30.  
  31. (welcome)
  32. ;********************************************************************************
  33. ;
  34. ; Read All System information
  35. ;
  36. ;********************************************************************************
  37. (set cpu (database "cpu"))
  38. (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  39. (set vblank (database "vblank"))
  40. (set graphmem (database "graphics-mem"))
  41. (set totmem (database "total-mem"))
  42. (set osver (/ (getversion "LIBS:version.library") 65536))
  43. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  44. (set fastmem (- totmem graphmem))
  45. (set JUST_DO_IT 42.42)
  46. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  47. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  48. ( if (= osver 41) ( (set workbench "4.0")) )))))
  49. (set CyberDrawer "SYS:")  (set were "sys")
  50. (set BackDirText "ram:") (set whereback "ram:")
  51.  
  52. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  53. (set lan 1)
  54. (if (= "deutsch" lanfound) (set lan 0) )
  55. (if (= "english" lanfound) (set lan 1) )
  56.  
  57. (set pick 0)
  58.  
  59. ;********************************************************************************
  60. ; For some reason these seem to get lost
  61. ;********************************************************************************
  62. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  63. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  64.  
  65. (if (> (exists ("devs:monitors/Spectrum")) 0)    (set #BGuess 1)  )
  66. (if (> (exists ("devs:monitors/Piccolo")) 0)     (set #BGuess 2)  )
  67. (if (> (exists ("devs:monitors/Domino")) 0)      (set #BGuess 3)  )
  68. (if (> (exists ("devs:monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  69. (if (> (exists ("devs:monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  70. (if (> (exists ("devs:monitors/A2410")) 0)       (set #BGuess 7)  )
  71. (if (> (exists ("devs:monitors/CyberVision")) 0) (set #BGuess 6)  )
  72. (if (> (exists ("devs:monitors/A2410")) 0)       (set #BGuess 7)  )
  73. (if (> (exists ("devs:monitors/DraCoAltais")) 0) (set #BGuess 8)  )
  74. (if (> (exists ("devs:monitors/Merlin")) 0)      (set #BGuess 9)  )
  75. (if (> (exists ("devs:monitors/Picasso")) 0)     (set #BGuess 0)  )
  76.  
  77. ;********************************************************************************
  78. ;
  79. ;ASK DEFAULT LANG
  80. ;
  81. ;********************************************************************************
  82. (set #langQuestion (cat "The following was found in Locale:language\n\n" lanfound "\n\nSelect one of the installers supported Languages."))
  83.  
  84. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  85.              (prompt #langQuestion)
  86.                      (help "Select a Language")
  87.                    (default lan)
  88.                  )
  89.           )
  90. )
  91.  
  92. (if (= 0 LAN) (set @language "deutsch") ) 
  93.  
  94.  
  95. ;********************************************************************************
  96. ;
  97. ;English Information
  98. ;
  99. ;********************************************************************************
  100.  
  101. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  102.               "by:\n\nVision Factory Development"
  103.  
  104.               ;"\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  105.          )
  106. )
  107.  
  108.  
  109.  
  110.  
  111.  
  112. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  113.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  114.                     "Kickstart 3.x, **You only have " workbench "**\n\n"
  115.                     "PicassoII in linear mode *not segmented*\n\n"
  116.                     "68020 or higher\n\n"
  117.                     "2 MB of fast memory"
  118.                )
  119. )
  120.  
  121.  
  122. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  123.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  124.                     "68020 or higher, **You only have " cpu "**\n\n"
  125.                     "PicassoII in linear mode *not segmented*\n\n"
  126.                     "Kickstart 3.x\n\n"
  127.                     "2 MB of fast memory"
  128.                )
  129. )
  130.  
  131.  
  132. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  133.                    " \"" workbench "\" Version of OS\n\n"
  134.                    " \"" cpu "\" Processor\n\n "
  135.                    " \"" blank "\" Machine\n\n"
  136.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  137.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  138.               )
  139. )
  140.  
  141.  
  142. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  143.  
  144.  
  145. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  146.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  147.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change "
  148.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  149.                           "YOU MUST DO THIS NOW!"
  150.                      )
  151. )
  152.  
  153.  
  154. (set #BackUpFiles "BackUp the Files")
  155. (set #DeleteFiles "Delete the Files")
  156. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software, if you select, to: ")
  157.  
  158.  
  159.  
  160.  
  161. (set #ask-MODEFILE "Which modefile should be installed ?")
  162. (set #15KHZ "15khz maximum")
  163. (set #31KHZ "31khz maximum")
  164. (set #35KHZ "35khz maximum")
  165. (set #38KHZ "38khz maximum")
  166. (set #48KHZ "48khz maximum")
  167. (set #57KHZ "57khz maximum")
  168. (set #64KHZ "64khz maximum")
  169.  
  170.  
  171. (set #wishtoinstall "Do you wish to install any of the following?")
  172. (set #order "Order Form")
  173. (set #guide "AmigaGuide File")
  174. (set #devdocs  "Developer Documentation")
  175. (set #versions "Versions - Shows Vers of CyberGraphX")
  176. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphX\" will be created there!)")
  177. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  178.  
  179.  
  180. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  181.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  182.                    "you can open 24bit screens as standard intuition screens and that you "
  183.                    "can use all graphics.library functions on them as before. (with some "
  184.                    "limitations of course because of the missing color lookup table)\n\n"
  185.                    "Application to adjust the monitor parameters"
  186.               )
  187. )
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  196.                   "By setting this variable, the planar-to-chunky conversion "
  197.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  198.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  199.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  200.              )
  201. )
  202.  
  203.  
  204. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  205.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  206.                      "become Hires-sprites (they are no longer doubled by "
  207.                      "the CyberGraphX-Software). "
  208.                      "This variable is identical to the tooltype HIRESSPRITE "
  209.                      "of older Picasso-monitor files."
  210.                 )
  211. )
  212.  
  213.  
  214. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  215.                      "By setting this variable, you can switch off 15bit modes to reduce "
  216.                      "screenmode list length. The Modes are still available but hidden."
  217.                 )
  218. )
  219.  
  220.  
  221. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  222.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) "
  223.                      "will be placed on an CyberGraphX screens."
  224.                 )
  225. )
  226.  
  227.  
  228.  
  229.  
  230. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  231.  
  232.  
  233.  
  234.  
  235.  
  236. (set #CyberREG (cat "If you have a Registered version of CyberGraphX installed or you are running a CyberVision board, "
  237.                     "please select 'Quick Update'. "
  238.                )
  239. )
  240. (set #firstTime "First time install")
  241. (set #PDInstalled "PD version Installed")
  242. (set #REGInstalled "Registered version Installed")
  243. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  244. (set #cvmode "CVMode (Screen Mode Creator)")
  245.  
  246.  
  247. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  248.  
  249.  
  250.  
  251. (set #NoUp    "No, Don't update")
  252. (set #OnlyNew "Yes, Only if newer")
  253. (set #YesAll  "Yes, No matter what")
  254.  
  255.  
  256. ;******* New Text June 16, 1995
  257. (set #checkcustom (cat "\nThe installer will now check\n"
  258.                        "'SYS:Expansion/village.library.info'\n"
  259.                        "To see if the tool type MONITOR is set to CUSTOM.\n\n"
  260.                        "It would be best to set this to custom so that when you install "
  261.                        "the REG version 'ConvPicassoModes' can convert over all you Sceeen modes "
  262.                        "that you currently use correctly.  If you get an error message you can just skip it."
  263.                   )
  264. )
  265.  
  266.  
  267. (set #ask-Amax "Do you wish to install the CyberGraphX Amax Driver? (It only does 1024x768x256)")
  268. (set #where-Amax "Where do you wish to Install the Amax Driver?\n(The default is \"Work:\")")
  269.  
  270.  
  271. (set #changes (cat "\nStarting with this release, CyBERgraphics now has a new and better name:"
  272.                    "\n\n\nCyberGraphX\n\n\n"
  273.                    "Also starting with this release the Version Numbering has changed. This would "
  274.                    "have been 40.50 but will now be called 2.0 of CyberGraphX. This has been done "
  275.                    "to remove the link between the cybergraphics.library version and the CyberGraphX package version!"
  276.               )
  277. )
  278.  
  279. (set #AboutQuickie (cat "\nThis will ONLY UPDATE the CyberGraphX libraries and Monitor Driver(s).\n\n"
  280.                         "It is meant for CyberGraphX users. This includes Registered, Non-Registered CyberGraphX users along with CyberVision owners!\n\n"
  281.                         "It will update your system to version " #CyberVer
  282.                         " of the CyberGraphX package.\n\nIf this is your first time Installing CyberGraphX "
  283.                         "then you will need to get the _complete_ Archive off Aminet first!"
  284.                     )
  285. )
  286.  
  287. ;************************ New Text July 20, 1995 *********************
  288. (set #yes "Yes - On")
  289. (set #no "No - Off")
  290. (set #youwantto "You want to set:")
  291. (set #to "To:")
  292.  
  293. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  294.                      "By setting this variable, 8 bit deep screens are always opened "
  295.                      "in Fast memory. Useful with 1MB chip systems but you should "
  296.                      "avoid it with 2MB chip, because the older method is more "
  297.                      "compatible (no taglist changes etc.) "
  298.                 )
  299. )
  300.  
  301. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  302.                      "With this option on, non displayable planar bitmaps "
  303.                      "are allocated in fast memory. This options speeds up "
  304.                      "handling of planar bitmaps but could lead to problems "
  305.                      "with amiga graphics which insist on planar graphics "
  306.                      "placed in chip memory. Take care when using this option."
  307.                 )
  308. )
  309.  
  310. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  311.                     "If this option is enabled, the monitor switch on every "
  312.                     "CyberGraphX supported board is deactivated. This option is "
  313.                     "required for multi monitor systems."
  314.                 )
  315. )
  316.  
  317. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  318.                      "If this option is disabled, everytime a CyberGraphX display "
  319.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  320.                      "to increase chipmem access speed. You can avoid this by enabling "
  321.                      "this option. "
  322.                 )
  323. )
  324.  
  325.  
  326. (set #board (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  327.  
  328.  
  329. ;************************ New Text July 21, 1995 *********************
  330.  
  331. (set #updatecorrect "\n\n\nThe Monitor file updated correctly!\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  332. (set #updatePD "\n\n\nThe Monitor Updater is for Registered Users only.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  333. (set #updateBad "\n\n\nThere has been an error in the Monitor File update.\n\nThe Monitor File is corrupt, bad, renamed or it is missing. Please Check this!\n")
  334. (set #updateNoUpdate "\n\n\nCurrently there is no Updater for your Monitor File.")
  335. (set #updateNoUpdate1 "\n\n\nCurrently there is no Updater for your Monitor File.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  336.  
  337.  
  338.  
  339. ;************************ New Text August 12, 1995 *********************
  340.  
  341. (set #NoUp     "No, Don't update")
  342. (set #OnlyNew  "Yes, Only if newer")
  343. (set #OnlyNewB "Yes, Only if newer with backup")
  344. (set #YesAll   "Yes, No matter what with no backup")
  345.  
  346.  
  347. (set #thefollowing "The following have been backed up to\n\n")
  348.  
  349.  
  350. (set #cybergfx "\n\nNot backed up - cybergraphics.library")
  351. (set #cyberint "\n\nNot backed up - cyberintuition.library")
  352. (set #cyberlayers "\n\nNot backed up - cyberlayers.library")
  353. (set #cybervil "\n\nNot backed up - vilintuisup.library")
  354. (set #gtlay "\n\nNot backed up - gtlayout.library")
  355.  
  356.  
  357. ;************************ New Text October 03, 1995 *********************
  358. (set #cvmode "CVMode - Screen Creator V1.5")
  359. (set #cyberprefsx "CyberPrefsX - Set/Explain/Change Settings")
  360. (set #tools "\nWhat CyberGraphX Tools do you with to install?\n")
  361. (set #Where "Where do you wish to install ")
  362. (set #wherecvm "CVMode? If there is a copy already there a backup of it will be created!")
  363. (set #wherecpx "CyberPrefsX? If there is a copy already there a backup of it will be created!")
  364. (set #board (cat "\nPlease Select the Graphics Board you are using CyberGraphX on:\n"))
  365. (set #AltaisMon (cat "\n\nIn order to get the latest CyberGraphX Monitor driver "
  366.                     "for the Altais you must contact:\n\n MacroSystem Computer GmbH\n"
  367.                     "Friedrich-Ebert-Str. 85\n58454 Witten\nTel: +49 (2302) 80391\n"
  368.                     "Fax: +49 (2302) 80884"
  369.                 )
  370. )
  371.  
  372. ;(set #YesBackup "Back up Monitor file")
  373. ;(set #NoBackup "Do Not Back up Monitor file")
  374. (set #hasbeen "Has been Backed Up to")
  375.  
  376. ;************************ New Text November 27, 1995 *********************
  377. (set #wherelibs "Where are your CyberGraphX libraries located? The default is 'SYS:Libs'")
  378. (set #backlibs "Do you wish to back up the Current CyberGraphX libraries that are currently installed on your system?")
  379. (set #nobackup "No, Do not BackUp CGraphX ")
  380. (set #yesbackup "Yes, BackUp CGraphX ")
  381. (set #wherebacklibs "Where do you wish to BackUp the CyberGraphX Libs? The Default is 'SYS:Storage'.  If a directory Called 'CyberGraphX' is not there one will be created.")
  382. (set #wherebackmon "Where do you wish to BackUp the CyberGraphX Monitor File? The Default is 'SYS:Storage'.  If a directory Called 'CyberGraphX' is not there one will be created.")
  383. (set #updatelib "Update library")
  384. (set #noupdatelib "Do not update library")
  385. (set #noroom "\n\nThere was no room on SYS: for\n\n")
  386. (set #filesum "(Backup file = <MonitorFileName>.<CheckSum>)")
  387. (set #monitorfile "monitor file.")
  388. (set #mc4d "MAXON Cinema4D V3")
  389.  
  390. ;****** NEW Text Jan 10, 1996 ********************************
  391. (set #quickchangeenv "Quick Set/Change Environment Variables ")
  392. (set #currenv "\nCurrent Settings for Environment Variables\n")
  393. (set #nodraco "\n\n\nNOTE\n\nThe libraries in this Update do not work with the DraCoAltais.  If you are using a DraCoAltais you should 'Abort Install' now.")
  394. (set boardback "\nNone")
  395.  
  396.  
  397. ;****** NEW Text Feb 23, 1996 ********************************
  398. (set #CyberBackUp-UnInstall "CyberBackUp-UnInstall")
  399. (set #wherebackupU "CyberBackUp-UnInstall? If there is a copy already there a backup of it will be created!")
  400. (set #gettingsum "\n\nGetting Checksum")
  401.  
  402.  
  403.  
  404. ;********************************************************************************
  405. ;
  406. ;German Information
  407. ;
  408. ;********************************************************************************
  409.  
  410. (if (= LAN 0)
  411. (
  412.  
  413.  
  414. (set #By (cat "\n\nCyberGraphX Software\nVersion " #cyberver "\n\n\n\n"
  415.               "Software von:\n\nVision Factory Development"
  416.               ;"\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  417.          )
  418. )
  419.  
  420. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  421.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  422.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  423.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  424.                   "68020 oder höher\n\n"
  425.                   "2 MB FAST Ram"
  426.              )
  427. )
  428.  
  429. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  430.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  431.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  432.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  433.                    "Kickstart 3.x\n\n"
  434.                    "2 MB FAST Ram"
  435.               )
  436. )
  437.  
  438.  
  439. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  440.                    " Version \"" Workbench "\" des OS\n\n"
  441.                    " \"" cpu "\" Prozessor\n\n "
  442.                    " \"" blank "\" Gerät\n\n"
  443.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  444.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  445.               )
  446. )
  447.  
  448.  
  449. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  450.  
  451.  
  452. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  453.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  454.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change "
  455.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  456.                           "YOU MUST DO THIS NOW!"
  457.                      )
  458. )
  459.  
  460.  
  461.  
  462. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  463. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  464. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  465. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  466. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  467. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  468. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  469. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  470.  
  471. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  472. (set #order "Bestellformular")
  473. (set #guide "AmigaGuide Datei")
  474. (set #devdocs  "Entwickler Dokumentation")
  475. (set #versions "Versions - Zeigt die CyberGFX Versionen")
  476. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphX\" wird automatisch erstellt!)")
  477.  
  478.  
  479.  
  480.  
  481. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  482.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  483.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  484.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  485.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  486.              )
  487. )
  488.  
  489.  
  490. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  491.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  492.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  493.                      "verdoppelt). "
  494.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  495.                      "in der alten Picasso software)."
  496.                 )
  497. )
  498.  
  499.  
  500.  
  501. (set #NoUp    "Nein, nicht erneuern")
  502. (set #OnlyNew "Ja, nur wenn neuer")
  503. (set #YesAll  "Ja, egal was installiert ist")
  504.  
  505.  
  506. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  507.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  508.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  509.                 )
  510. )
  511.  
  512. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  513.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) "
  514.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  515.                 )
  516. )
  517.  
  518.  
  519.  
  520. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  521.  
  522.  
  523. (set #CyberREG (cat "Haben Sie bereits eine Version von CyberGraphX installiert? Wenn das so ist, ueberschreibt die Installation die Monitordatei nicht ! Sie muessen diese Frage richtig beantworten!"))
  524. (set #firstTime "Erstinstallation")
  525. (set #PDInstalled "PD version installiert")
  526. (set #REGInstalled "Registrierte Version installiert")
  527. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  528. (set #cvmode "CVMode (Screen Mode Programm)")
  529.  
  530.  
  531. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  532.  
  533. (set #changes (cat "\nBeginnend mit dieser Veröffentlichung heißt das CyBERgraphics System nun anders:"
  534.                    "\n\n\nCyberGraphX\n\n\n"
  535.                    "Ebenso hat sich die Versionsnummernvergabe geändert. Es hätte wie bisher eigentlich "
  536.                    "40.50 sein müssen. Ab sofort ist es aber die Version 2.0 von CyberGraphX. Damit ist endlich der "
  537.                    "Zusammenhang zwischen der Version der cybergraphics.library und dem CyberGraphX Paket aufgehoben"
  538.               )
  539. )
  540.  
  541.  
  542. (set #AboutQuickie (cat "\n\nDieses Paket erneuert NUR die CyberGraphX libraries.\n\n"
  543.                         "Es ist sowohl für registrierte als auch unregistrierte CyberGraphX Benutzer gedacht!\n\n"
  544.                         "Es updated Ihr System auf Version " #CyberVer
  545.                         " der CyberGraphX libraries.\n\nWenn Sie CyberGraphX zum ersten Mal installieren, "
  546.                         "brauchen Sie das _komplette_ Archiv vom Aminet!"
  547.                     )
  548. )
  549.  
  550.  
  551. ;********************** New Text July 20, 1995 *******************
  552. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  553.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  554.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  555.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  556.                      "alte Methode in einigen Punkten kompatibler ist."
  557.                 )
  558. )
  559.  
  560.  
  561. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  562.                      "Ist diese Option aktiv, werden nicht darzustellende "
  563.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  564.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  565.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  566.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  567.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  568.                 )
  569. )
  570.  
  571. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  572.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  573.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  574.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  575.                 )
  576. )
  577.  
  578. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  579.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  580.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  581.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  582.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  583.                 )
  584. )
  585.  
  586. (set #board (cat "\nBitte wählen Sie die Grafikkarte, deren Monitordatei Sie erneuern möchten:\n"))
  587.  
  588.  
  589. ;************************ New Text July 21, 1995 *********************
  590.  
  591.  
  592. (set #updatecorrect "\n\n\nDie Monitordatei wurde erneuert!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  593. (set #updatePD "\n\n\nDas Erneuern der Monitor funktioniert nur mit registrierten Monitordateien!!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  594. (set #updateBad "\n\n\nEs ist ein Fehler aufgetreten beim Erneuern.\n\nDie Monitordatei ist entweder defekt, umbenannt oder fehlt. Bitte überprüfen Sie das!\n")
  595. (set #updateNoUpdate "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.")
  596. (set #updateNoUpdate1 "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  597.  
  598.  
  599. (set #yes "Ja")
  600. (set #no "Nein")
  601. (set #youwantto "Sie wollen die Änderung von:")
  602. (set #to "auf:")
  603.  
  604.  
  605.  
  606. ;************************ New Text August 12, 1995 *********************
  607.  
  608. (set #NoUp     "Nein, nicht erneuern")
  609. (set #OnlyNew  "Ja, nur wenn neuer")
  610. (set #OnlyNewB "Ja, nur wenn neuer + Backup")
  611. (set #YesAll   "Ja, egal welche Version")
  612.  
  613.  
  614.  
  615. ;****
  616.  
  617.  
  618. (set #thefollowing "Folgende Dateien wurden gesichert in\n\n")
  619.  
  620.  
  621. (set #cybergfx "\n\nNicht gesichert - cybergraphics.library")
  622. (set #cyberint "\n\nNicht gesichert - cyberintuition.library")
  623. (set #cyberlayers "\n\nNicht gesichert - cyberlayers.library")
  624. (set #cybervil "\n\nNicht gesichert - vilintuisup.library")
  625. (set #gtlay "\n\nNicht gesichert - gtlayout.library")
  626.  
  627. ;************************ New Text October 03, 1995 *********************
  628. (set #cvmode "CVMode - Screenedit Tool V1.5")
  629. (set #cyberprefsx "CyberPrefsX - Setze/Erkläre/Ändere Werte")
  630. (set #tools "\nWelche CyberGraphX Tools möchten Sie installieren?\n")
  631. (set #Where "Wo möchten Sie es hininstallieren ")
  632. (set #wherecvm "CVMode? Wenn es bereits existiert, wird ein Backup erstellt!")
  633. (set #wherecpx "CyberPrefsX? Wenn es bereits existiert, wird ein Backup erstellt!")
  634. (set #board (cat "\nBitte wählen Sie die Grafikkarte, mit dem Sie CyberGraphX benutzen wollen:\n"))
  635. (set #AltaisMon (cat "\n\nUm den aktuellsten CyberGraphX Monitor Treiber für DraCoAltais "
  636.                     "zu bekommen, wenden Sie sich bitte an:\n\n MacroSystem Computer GmbH\n"
  637.                     "Friedrich-Ebert-Str. 85\n58454 Witten\nTel: +49 (2302) 80391\n"
  638.                     "Fax: +49 (2302) 80884"
  639.                 )
  640. )
  641.  
  642. (set #YesBackup "Sicherung der Monitordateien")
  643. (set #NoBackup "Keine Sicherung der Monitordateien")
  644. (set #hasbeen "wurde gesichert nach")
  645.  
  646. ;************************ New Text November 27, 1995 *********************
  647. (set #wherelibs "Wo befinden sich die CyberGraphX libraries? Normal ist 'SYS:Libs'")
  648. (set #backlibs "Wollen sie ein Backup der aktuell auf Ihrem System befindlichen CyberGraphX libraries?")
  649. (set #nobackup "Nein, keine Sicherung der CGraphX ")
  650. (set #yesbackup "Ja, sichere alte CGraphX ")
  651. (set #wherebacklibs "Wohin sollen die CyberGraphX Libraries gesichert werden? Normal ist 'SYS:Storage'. Wenn ein Verzeichnis namens 'CyberGraphX' fehlt, wird eins erstellt.")
  652. (set #wherebackmon "Wohin soll die CyberGraphX Monitordatei gesichert werden? Normal ist 'SYS:Storage'. Wenn ein Verzeichnis namens 'CyberGraphX' fehlt, wird eins erstellt.")
  653. (set #updatelib "Library erneuern")
  654. (set #noupdatelib "Library nicht erneuern")
  655. (set #noroom "\n\nEs war kein Platz auf sys:\n\n")
  656. (set #filesum "(Backupdatei = <MonitorDatei>.<Pruefsumme>)")
  657. (set #monitorfile "Monitordatei.")
  658. (set boardback "Alten Monitor nicht gesichert.")
  659. (set #mc4d "MAXON Cinema4D V3")
  660.  
  661. ;****** NEW Text Jan 10, 1996 ********************************
  662.  
  663. (set #quickchangeenv "Schnelles Setzen/Ändern der Umgebungsvariablen")
  664. (set #currenv "\nMomentane Einstellungen der Umgebungsvariablen\n")
  665. (set #nodraco "\n\n\nHinweis\n\nDie Libraries in diesem Update arbeiten nicht mit DraCo zusammen.  Wenn Sie einen DraCo benutzen, sollten Sie jetzt 'Abort Install' drücken.")
  666. (set boardback "\n(Keine Sicherung)")
  667.  
  668.  
  669. ;****** NEW Text Feb 23, 1996 ********************************
  670. (set #CyberBackUp-UnInstall "CyberBackUp-UnInstall")
  671. (set #wherebackupU "CyberBackUp-UnInstall? Wenn bereits eine Kopie vorhanden ist, wird diese gesichert!")
  672. (set #gettingsum "\n\nErzeuge Prüfsumme")
  673.  
  674.  
  675.  
  676. )
  677.  
  678. )
  679.  
  680. ;********************************************************************************
  681. ;
  682. ; Update!
  683. ;
  684. ;********************************************************************************
  685. (message #by)
  686. (message #nodraco)
  687. (message #AboutQuickie)
  688.  
  689. ;*******************************************************************
  690. ;  ASK where cybergfx libs are
  691. ;*******************************************************************
  692. (set wherelibs   (askdir (prompt #wherelibs)
  693.              (help   #wherelibs)
  694.                   (default "SYS:Libs")
  695.          )
  696. )
  697.  
  698. ;*******************************************************************
  699. ;  BackUp Libs ?
  700. ;*******************************************************************
  701. (set back  (askchoice
  702.         (choices (cat #yesbackup "libraries.")  (cat #nobackup "libraries.") )
  703.         (prompt #backlibs)
  704.         (help #backlibs)
  705.                 (default 0)
  706.       )
  707. )
  708.  
  709. (set whereback "ram:")
  710.  
  711. (if (= back 0)
  712.    (set whereback   (askdir (prompt #wherebacklibs)
  713.                          (help   #wherebacklibs)
  714.                              (default "SYS:Storage")
  715.              )
  716.     )
  717. )
  718.  
  719. ;*******************************************************************
  720. ;  Make dirs for backup
  721. ;*******************************************************************
  722. (if (= back 0)
  723.  (
  724.   (set libsdest (tackon whereback "CyberGraphX"))
  725.   (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  726.   (set libsdest (tackon whereback "CyberGraphX/libs"))
  727.   (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  728.  )
  729. )
  730. ;*******************************************************************
  731. ;  cybergraphics.library
  732. ;*******************************************************************
  733. (procedure UpdateLib
  734.  
  735. (set vernum1 (getversion (tackon wherelibs #lib)) )
  736. (set ver1 (/ vernum1 65536))
  737. (set rev1 (- vernum1 (* ver1 65536) ) )
  738.  
  739.  
  740. (set vernum2 (getversion (cat "libs/" #lib)) )
  741. (set ver2 (/ vernum2 65536))
  742. (set rev2 (- vernum2 (* ver2 65536) ) )
  743.  
  744. ;*** Check for SIZE and Version
  745. (if (= back 0)
  746.    (
  747.  
  748.      (set sizeneed (getsize (cat "libs/" #lib)) )
  749.      (set space (getdiskspace (cat (getdevice libsdest) ":")) )
  750.      (set ok 0)
  751.      (set ##ver (cat ver1 "." rev1) )
  752.      (set #cybertext (cat "\n\nNo room on " libsdest " for " #lib ##ver))
  753.  
  754.      (if (> space sizeneed)
  755.         (
  756.           (if (> (exists (tackon wherelibs #lib)) 0)
  757.            (copyfiles (source (tackon wherelibs #lib))
  758.                               (dest libsdest)
  759.                               (newname (cat #lib ver1 "." rev1))
  760.            )
  761.           )
  762.  
  763.  
  764.           ;(copylib (source (cat "libs/" #lib)) (dest wherelibs))
  765.           (set #cybertext (cat "\n\n" #lib ##ver))
  766.           (set ok 1)
  767.          )
  768.      )
  769.  
  770.  
  771.  
  772.      
  773.      (if (= ok 0)
  774.       (
  775.                   (set #thenewer (cat #noroom #lib ##ver "\n\nThe newer\n\n" #lib ver2 "." rev2 "\n\nwas not copied over/updated to " wherelibs ) )
  776.        (if (= LAN 0) (set #thenewer (cat #noroom #lib ##ver "\n\nDie neuere\n\n" #lib ver2 "." rev2 "\n\nwurde nicht kopiert nach " wherelibs ) ) )  
  777.        (message #thenewer)
  778.       )
  779.      )
  780.  
  781.  
  782.    )
  783.  
  784. )
  785.  
  786.  
  787. ;**** Copy new Libs
  788. (set #text2  (cat "'" #lib "'\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  789.                   "Version Currently Installed   : " ver1 "." rev1 "\n\n"
  790.                   "Version From Update Disk/File : " ver2 "." rev2 "\n\n"
  791.                   "Do you wish to install Version " ver2 "." rev2 " of the "
  792.                   "'" #lib "' from the Update Disk/File?"
  793.              )
  794. )
  795.  
  796.  
  797. (if (= LAN 0) ; ** German
  798.   (set #text2  (cat "'" #lib "'\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  799.                     "Im System installiert         : " ver1 "." rev1 "\n\n"
  800.                     "zu installierende Version     : " ver2 "." rev2 "\n\n"
  801.                     "Wollen Sie die neue Version " ver2 "." rev2 " von der "
  802.                     "'" #lib "' installieren?"
  803.                )
  804.   )
  805. )
  806.  
  807.  
  808.  
  809. (set pick (askchoice
  810.         (choices #updatelib #noupdatelib)
  811.         (prompt #text2)
  812.         (help #text2)
  813.                 (default pick)
  814.       )
  815. )
  816.  
  817.  
  818. (if (= pick 0) (copylib (source (cat "libs/" #lib )) (dest wherelibs)) )
  819.  
  820.  
  821. ) ;**** procedure UpdateLib END
  822.  
  823.  
  824. ;*******************************************************************
  825. ;  Set Vars for each time thru procedure UpdateLib
  826. ;*******************************************************************
  827. (set #lib "cybergraphics.library")  (UpdateLib) (set #cybergfx    #cybertext)
  828. (set #lib "cyberintuition.library") (UpdateLib) (set #cyberint    #cybertext)
  829. (set #lib "cyberlayers.library")    (UpdateLib) (set #cyberlayers #cybertext)
  830. (set #lib "vilintuisup.library")    (UpdateLib) (set #cybervil    #cybertext)
  831. (set #lib "gtlayout.library")       (UpdateLib) (set #gtlay       #cybertext)
  832.  
  833.  
  834. ;*******************************************************************
  835. ;  Let then know that has been backed up!
  836. ;*******************************************************************
  837. (if (= back 0)
  838.  (message (cat #thefollowing libsdest #cybergfx #cyberint #cyberlayers #cybervil #gtlay))
  839. )
  840. ;********************************************************************************
  841. ;
  842. ; Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  843. ; This is here just for backup!
  844. ;
  845. ;********************************************************************************
  846. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  847. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  848.  
  849.  
  850. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  851.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  852.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  853.       )
  854. )
  855.  
  856. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1)
  857.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  858.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  859.       )
  860. )
  861.  
  862. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  863.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  864.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  865.       )
  866. )
  867.  
  868. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  869.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  870.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  871.       )
  872. )
  873.  
  874.  
  875. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  876.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0)
  877.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  878.       )
  879. )
  880.  
  881. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  882.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0)
  883.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  884.       )
  885. )
  886.  
  887. (if (< (exists ("EnvArc:CyberGraphics/CyberVisionMonitor")) 1)
  888.       (if (> (exists ("EnvArc:CyberVisionMonitor")) 0)
  889.          (copyfiles (source "EnvArc:CyberVisionMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  890.       )
  891. )
  892.  
  893. (if (< (exists ("EnvArc:CyberGraphics/A2410Monitor")) 1)
  894.       (if (> (exists ("EnvArc:A2410Monitor")) 0)
  895.          (copyfiles (source "EnvArc:A2410Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  896.       )
  897. )
  898.  
  899.  
  900. ;********************************************************************************
  901. ;  Update the Monitor file ..
  902. ;********************************************************************************
  903. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  904.                                "Retina Z3 BLT" "Piccolo SD64" "CyberVision64"
  905.                                "A2410" "DraCoAltais"
  906.              (prompt #board)
  907.                      (help "Select a Gfx Board")
  908.                    (default #BGuess)
  909.                  )
  910.           )
  911. )
  912.  
  913. (if (= board 0) (set #BOARD "Picasso") )     (if (= board 1) (set #BOARD "Spectrum") )
  914. (if (= board 2) (set #BOARD "Piccolo") )     (if (= board 3) (set #BOARD "Domino") )
  915. (if (= board 4) (set #BOARD "RetinaZ3") )    (if (= board 5) (set #BOARD "PiccoSD64") )
  916. (if (= board 6) (set #BOARD "CyberVision") ) (if (= board 7) (set #BOARD "A2410") )
  917. (if (= board 8) (set #BOARD "DraCoAltais") ) (if (= board 9) (set #BOARD "Merlin") )
  918.  
  919. ;*** Ask to Backup Monitor file
  920. (set #monbackup (cat "Do you wish to Backup\n\n'Devs:Monitors/" #BOARD "'") )
  921.  
  922. (if (= LAN 0)
  923.   (set #monbackup (cat "Wollen Sie die Sicherung von\n\n'Devs:Monitors/" #BOARD "'"))
  924. )
  925.  
  926.  
  927. (set monbackup (askchoice (choices (cat #YesBackup #monitorfile) (cat #NoBackup #monitorfile) )
  928.                        (prompt #monbackup)
  929.                            (help #monbackup)
  930.                       (default 0)
  931.            )
  932. )
  933.  
  934.  
  935.  
  936. (if (= monbackup 0)
  937.  (
  938.    
  939.  
  940.    ;(if (= back 0)
  941.       (set BackDirText (askdir (prompt #wherebackmon)
  942.                            (help   #wherebackmon)
  943.                                (default whereback)
  944.                )
  945.       )
  946.    ;)
  947.  
  948.  
  949.    ;(set BackDirText whereback)
  950.    (if (< (exists (BackDirText)) 1)  (makedir (BackDirText) (infos))  )
  951.  
  952.    (if (< (exists (tackon BackDirText "devs")) 1)
  953.               (makedir (tackon BackDirText "devs") (infos))
  954.    )
  955.    (if (< (exists (tackon BackDirText "devs/monitors")) 1)
  956.               (makedir (tackon BackDirText "devs/monitors") (infos))
  957.    )
  958.  
  959.    (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  960.      ( (working #gettingsum) (set sum (getsum (cat "Devs:Monitors/" #BOARD)) ) )
  961.    )
  962.  
  963.    (if (< sum 0) (set sum (* sum -1)) )
  964.  
  965.    (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  966.                      (copyfiles (source (cat "Devs:Monitors/" #BOARD)) (dest (tackon BackDirText "devs/monitors"))
  967.                        (infos)
  968.                        (newname (cat (tackon BackDirText "devs/monitors/") #BOARD "." sum))
  969.                      )
  970.    )
  971.  
  972.  
  973.    (message (cat "\n" (tackon BackDirText "devs/monitors/") #BOARD "." sum
  974.                  "\n\n" #hasbeen "\n\n" (tackon BackDirText "devs/monitors")
  975.                  "\n\n" #filesum
  976.             )
  977.    )
  978.  
  979.    (set boardback (cat (tackon BackDirText "devs/monitors/") #BOARD "." sum))
  980.  
  981.  )
  982. )
  983.  
  984.  
  985.  
  986.  
  987.  
  988. (set #updated 0)
  989.  
  990. (if (= board 0)
  991.   (
  992.     (set #Update (run "Updaters/UpdatePicassoII devs:monitors/Picasso") )
  993.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  994.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  995.     (if (= #update 10) (message #updateBad) )
  996.     (set #updated 1)
  997.   )
  998. )
  999.  
  1000. (if (= board 1)
  1001.   (
  1002.     (set #Update (run "Updaters/UpdateSpectrum devs:monitors/Spectrum") )
  1003.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  1004.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  1005.     (if (= #update 10) (message #updateBad) )
  1006.     (set #updated 1)
  1007.   )
  1008. )
  1009.  
  1010. (if (= board 2)
  1011.   (
  1012.     (set #Update (run "Updaters/UpdatePiccolo devs:monitors/Piccolo") )
  1013.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  1014.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  1015.     (if (= #update 10) (message #updateBad) )
  1016.     (set #updated 1)
  1017.   )
  1018. )
  1019.  
  1020. (if (= board 3)
  1021.   (
  1022.     (set #Update (run "Updaters/UpdateDomino devs:monitors/Domino") )
  1023.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  1024.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  1025.     (if (= #update 10) (message #updateBad) )
  1026.     (set #updated 1)
  1027.   )
  1028. )
  1029.  
  1030. (if (= board 4)
  1031.   (
  1032.     (set #Update (run "Updaters/UpdateRetinaZ3 devs:monitors/RetinaZ3") )
  1033.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  1034.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  1035.     (if (= #update 10) (message #updateBad) )
  1036.     (set #updated 1)
  1037.   )
  1038. )
  1039.  
  1040. (if (= board 5)
  1041.   (
  1042.     (set #Update (run "Updaters/UpdatePiccoSD64 devs:monitors/PiccoSD64") )
  1043.     (if (= #update 0) (message (cat #updatecorrect "\n" boardback )) ) ;
  1044.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )
  1045.     (if (= #update 10) (message #updateBad) )
  1046.     (set #updated 1)
  1047.   )
  1048. )
  1049.  
  1050.  
  1051. (if (= board 6)
  1052.  (
  1053.    (copyfiles (source "Monitors/CyberVision") (dest "devs:Monitors") (optional "force" "askuser" "nofail") )
  1054.    (message (cat #updatecorrect "\n" boardback )) )
  1055.  )
  1056.  
  1057. (if (= board 7) (message #updateNoUpdate) )
  1058. (if (= board 8) (message #AltaisMon))
  1059. (if (= board 9) (message #updateNoUpdate) )
  1060.  
  1061. ;********************************************************************************
  1062. ;  Tools to install
  1063. ;********************************************************************************
  1064. (set ToDo1      (askoptions (choices #cyberprefsx #CyberBackUp-UnInstall)
  1065.                 (prompt #tools)
  1066.                 (help #tools)
  1067.                 (default 7)
  1068.         )
  1069. )
  1070.  
  1071. (if (IN ToDo1 0)
  1072.       (
  1073.         (set CyberDrawer (askdir (prompt #Where #wherecpx)
  1074.                (help   #Where #wherecpx)
  1075.                (default CyberDrawer)
  1076.                  )
  1077.         )
  1078.  
  1079.         (if (> (exists (tackon CyberDrawer "CyberPrefsX") ) 0)
  1080.            (
  1081.               (set vernum1 (getversion (tackon CyberDrawer "CyberPrefsX")))
  1082.               (set ver1 (/ vernum1 65536))
  1083.               (set rev1 (- vernum1 (* ver1 65536) ) )
  1084.  
  1085.  
  1086.               (copyfiles (source (tackon CyberDrawer "CyberPrefsX"))
  1087.                          (dest CyberDrawer) (infos)
  1088.                          (newname (cat "CyberPrefsX" ver1 "." rev1))
  1089.               )
  1090.  
  1091.  
  1092.  
  1093.            )
  1094.          )
  1095.  
  1096.         (copyfiles (source "Tools/CyberPrefsX")  (dest CyberDrawer) (infos) (optional "force" "askuser" "nofail"))
  1097.  
  1098.       )
  1099. )
  1100.  
  1101.  
  1102. (if (IN ToDo1 1)
  1103.       (
  1104.         (set CyberDrawer (askdir (prompt #Where #wherebackupU)
  1105.                (help   #Where #wherebackupU)
  1106.                (default CyberDrawer)
  1107.                  )
  1108.         )
  1109.  
  1110.         (if (> (exists (tackon CyberDrawer "CyberBackUp-UnInstall") ) 0)
  1111.            (
  1112.               (set vernum1 (getversion (tackon CyberDrawer "CyberBackUp-UnInstall")))
  1113.               (set ver1 (/ vernum1 65536))
  1114.               (set rev1 (- vernum1 (* ver1 65536) ) )
  1115.  
  1116.  
  1117.               (copyfiles (source (tackon CyberDrawer "CyberBackUp-UnInstall"))
  1118.                          (dest CyberDrawer) (infos)
  1119.                          (newname (cat "CyberBackUp-UnInstall" ver1 "." rev1))
  1120.               )
  1121.  
  1122.  
  1123.  
  1124.            )
  1125.          )
  1126.  
  1127.         (copyfiles (source "Tools/CyberBackUp-UnInstall")  (dest CyberDrawer) (infos) (optional "force" "askuser" "nofail"))
  1128.  
  1129.       )
  1130. )
  1131.  
  1132.  
  1133.  
  1134.  
  1135.  
  1136. ;*******************************************************************
  1137. ;  EEENNNDDD
  1138. ;*******************************************************************
  1139.  
  1140. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1141. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1142.  
  1143. (run (cat "run " #mpath "/multiview docs/Changes.txt") )
  1144. (delete "ram:lan")
  1145. (set @default-dest "sys:")
  1146.  
  1147. (set #done "Update Complete!")
  1148. (if (= LAN 0) (set #done "Update fertig!") )
  1149.  
  1150. (exit #done)
  1151.  
  1152.  
  1153.  
  1154.  
  1155.  
  1156.  
  1157.  
  1158.